Software USA 5 #2/Software USA Volume 5.02.iso/mac/children/2/Frog Hop Game/Frog Hop Game.dxr/00006_startmovie.ls

Text File | 1998-09-21 | 5.0 KB | 189 lines

on startMovie
  global GRIDX, GRIDY, GRIDNUM, ALPH, SAVETHERE, SNDTHERE, REGTHERE, SCRTHERE, UPG, REGNAME, scorecnt, gridcnt, LEVEL, bonuspoints, need, delayitmore, DUMMY
  set delayitmore to 0
  set the text of cast "needtxt" to "00000"
  set need to 0
  set SNDTHERE to 0
  set scorecnt to 0
  set gridcnt to 0
  set bonuspoints to 0
  set LEVEL to 0
  set UPG to 0
  cursor(4)
  set GRIDX to []
  set GRIDY to []
  set X to 95 - 90
  set Y to 65 - 55
  repeat with n = 1 to 5
    set Y to Y + 55
    set X to 95 - 90
    repeat with NN = 1 to 5
      set X to X + 90
      append(GRIDX, X)
      append(GRIDY, Y)
    end repeat
  end repeat
  if objectp(GWRITEOBJECT) then
    GWRITEOBJECT(mdispose)
  end if
  if objectp(GREADOBJECT) then
    GREADOBJECT(mdispose)
  end if
  set ALPH to "ABCDEFGHIJKLMNOPQURSTUVWXYZabcdefghijklmnopqurstuvwxyz" & RETURN
  set the soundEnabled to 1
  set REGTHERE to 0
  set SCRTHERE to 0
  set SAVETHERE to 0
  set FILELIST to []
  repeat with i = 1 to the maxinteger
    set n to getNthFileNameInFolder(the pathName, i)
    if n = EMPTY then
      exit repeat
    end if
    append(FILELIST, n)
  end repeat
  repeat with n = 1 to count(FILELIST)
    if "Froghop.skr" = getAt(FILELIST, n) then
      set SCRTHERE to 1
    end if
    if "Froghop.dat" = getAt(FILELIST, n) then
      set REGTHERE to 1
    end if
    if "Froghop.sav" = getAt(FILELIST, n) then
      set SAVETHERE to 1
    end if
    if "Froghop.snn" = getAt(FILELIST, n) then
      set SNDTHERE to 1
    end if
  end repeat
  if SNDTHERE = 1 then
    getsoundlevel()
  end if
  if REGTHERE = 0 then
    if objectp(GWRITEOBJECT) then
      GWRITEOBJECT(mdispose)
    end if
    set GWRITEOBJECT to FileIO(mnew, "WRITE", the pathName & "Froghop.dat")
    set DUMMY to "FROGHOPDATATDEAGE1234567898N*E#R3O82#3*8XZY" & RETURN
    repeat with n = 1 to 5
      GWRITEOBJECT(mWriteString, DUMMY)
    end repeat
    GWRITEOBJECT(mdispose)
  end if
  if SCRTHERE = 0 then
    WRITENEWSCORES()
  end if
  READSCORES()
  GETSCORES()
  CHECKUPG()
  if UPG = 0 then
    set the text of cast "INFOBOXTXT" to "Unregistered Shareware Version"
  else
    set the text of cast "infoboxtxt" to "Registered to:  " & REGNAME
  end if
end

on READSCORES
  global GREADOBJECT, LLN, SCORET, SCORETEXT, SKFILE, CODEWORD, TEMTX, TC, SNAME, SLEVEL, SSCORE, SDATE, SCORELIST
  set SKFILE to "Froghop.skr"
  set SCORELIST to []
  if objectp(GREADOBJECT) then
    GREADOBJECT(mdispose)
  end if
  set GREADOBJECT to FileIO(mnew, "READ", the pathName & SKFILE)
  set SCORETEXT to GREADOBJECT(mReadLine)
  GREADOBJECT(mdispose)
  set CODEWORD to SCORETEXT
  UNCIPHER()
  set SCORETEXT to CODEWORD
  repeat with n = 1 to 40
    set SCORET to EMPTY
    set SCORET to item n of SCORETEXT
    append(SCORELIST, SCORET)
  end repeat
  set SNAME to []
  set SSCORE to []
  set SLEVEL to []
  set SDATE to []
  set TC to 0
  repeat with n = 1 to 10
    repeat with NN = 1 to 4
      set TC to TC + 1
      set TEMTX to getAt(SCORELIST, TC)
      if NN = 1 then
        append(SNAME, TEMTX)
      end if
      if NN = 2 then
        append(SSCORE, TEMTX)
      end if
      if NN = 3 then
        append(SLEVEL, TEMTX)
      end if
      if NN = 4 then
        append(SDATE, TEMTX)
      end if
    end repeat
  end repeat
end

on GETSCORES
  global SNAME, SSCORE, SDATE, SLEVEL, SCORELIST, BESTSCORE, PNTCNT, SKO, TSCORELIST, STRING1, STRING2, STRING3, STRING4, STRI, LLN
  set the text of cast "SCOREBOX" to EMPTY
  set TSCORELIST to []
  set PNTCNT to 0
  set SKO to EMPTY
  set STRI to EMPTY
  repeat with n = 1 to 10
    set STRING1 to getAt(SNAME, n) & "               "
    set STRING1 to chars(STRING1, 1, 5)
    set STRING2 to getAt(SSCORE, n) & "                 "
    set STRING2 to chars(STRING2, 1, 7)
    set STRING3 to getAt(SDATE, n) & "              "
    set STRING3 to chars(STRING3, 1, 11)
    set STRING4 to getAt(SLEVEL, n) & "       "
    set STRING4 to chars(STRING4, 1, 7)
    set STRI to STRING1 & " " & STRING2 & " " & STRING4 & STRING3 & RETURN
    append(TSCORELIST, STRI)
    set STRI to EMPTY
  end repeat
  set SKO to EMPTY
  repeat with n = 1 to 10
    set SKO to SKO & getAt(TSCORELIST, n)
  end repeat
  set SKO to "NAME  SCORE   LEVEL  DATE" & RETURN & RETURN & SKO
  set the text of cast "SCOREBOX" to EMPTY
  put SKO into field "SCOREBOX"
  updateStage()
end

on writescore
  global SNAME, SSCORE, SDATE, SKFILE, SCORETEXT, SLEVEL, GWRITEOBJECT, CODEWORD
  if objectp(GWRITEOBJECT) then
    GWRITEOBJECT(mdispose)
  end if
  set GWRITEOBJECT to FileIO(mnew, "WRITE", the pathName & "Froghop.skr")
  set SCORETEXT to EMPTY
  repeat with n = 1 to 10
    set SCORETEXT to SCORETEXT & getAt(SNAME, n) & ","
    set SCORETEXT to SCORETEXT & getAt(SSCORE, n) & ","
    set SCORETEXT to SCORETEXT & getAt(SLEVEL, n) & ","
    set SCORETEXT to SCORETEXT & getAt(SDATE, n) & ","
  end repeat
  set CODEWORD to SCORETEXT
  CIPHER()
  set SCORETEXT to CODEWORD
  GWRITEOBJECT(mWriteString, SCORETEXT)
  GWRITEOBJECT(mdispose)
end

on dontp
  repeat with n = 1 to 48
    puppetSprite(n, 0)
  end repeat
  go("closeoutreg")
end

on stopMovie
  set the soundEnabled to 1
end